home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
cutl.zip
/
CAMLOAD.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-03-01
|
930b
|
32 lines
100 ' CAMLOAD.BAS -- by PC Magazine
110 ' Works with P. Cheng's CAMERA.COM.
120 ' Must run this from CAM.BAT batchfile
130 ' on disk that contains three lines:
140 ' DIR ?.* > CAMERA.FIL
150 ' BASICA CAMLOAD
160 ' DELETE CAMERA.FIL
170 OLDTIME$=TIME$
180 INPUT "Seconds per slide: ",S
190 IF S<1 OR S>59 THEN BEEP:GOTO 180
200 DIM A$(26),S(26):K=1
210 OPEN "camera.fil" FOR INPUT AS #1
220 IF EOF(1) THEN CLOSE:GOTO 310
230 T=0:INPUT #1,B$:M$=MID$(B$,10,3)
240 IF M$="40T" THEN T=1
250 IF M$="80T" THEN T=2
260 IF M$="MRG" THEN T=3
270 IF M$="HRG" THEN T=4
280 IF T=0 THEN 220
290 A$(K)=LEFT$(B$,1)+"."+M$
300 S(K)=T:K=K+1:GOTO 220
310 FOR A=1 TO K-1
320 ON S(A) GOTO 330,340,350,360
330 SCREEN 0:WIDTH 40:GOTO 370
340 SCREEN 0:WIDTH 80:GOTO 370
350 SCREEN 1:GOTO 370
360 SCREEN 2
370 BLOAD A$(A)
380 TIME$="0"
390 WHILE VAL(RIGHT$(TIME$,2))<S:WEND
400 NEXT:TIME$=OLDTIME$:SYSTEM